;; EX-31.scm - Pulsing bottles (JMcC)

(let ((n 6))				; number of 'bottles'
  (Mix.fill n (lambda ()
		(Pan2.ar (Resonz.ar (WhiteNoise.ar (LFPulse.kr (random 4 14)
							       0
							       (random 0.7)))
				    (random 400 7400)
				    0.01)
			 (SinOsc.kr (+ 0.1 (random 0.4)) (random two-pi))))))
